;------------------------------------------------------------------------------
; .ss.
; `ýý'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$ý^øý$$$$'.d$Pýø^^ý$P'.d$$ý^øý$$$$'.$$$' .$$$ýSb,.
; $$$' .$$$' $$$ýS‡sæý' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `ýS$$SýýS$$SýøýS$$$$SýøøýS$$$$$$',$$SýøýS$S'.sS$$$Pý'
; .sSýø$$$ýýø"' dýø'
; .$$ý .$$'
; $$$.,d$$'
; `ýS$$Sý'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
STRING003 = "(" + String(Hour(Time())) + ":" + String(Min(Time())) + ")"
STRING004 = Date()
STRING002 = ReadLine(PCBDat(), 29)
INTEGER003 = FileInf(STRING002, 4)
INTEGER002 = INTEGER003 / 400
STRING005 = PPEPath() + "PPHTML.INI"
STRING006 = ReadLine(PCBDat(), 94)
INTEGER004 = FNext()
FCreate INTEGER004, ReadLine(STRING005, 1), 1, 0
FPut INTEGER004, "" + STRING006 + ""
FPut INTEGER004, ""
FPut INTEGER004, "" + ReadLine(PCBDat(), 94) + "
"
FPut INTEGER004, "" + "MEMBER LIST" + "
"
FPut INTEGER004, ""
FPut INTEGER004, "NAME | " + "CITY | " + "STATE | "
For INTEGER001 = 1 To INTEGER002
GetAltUser INTEGER001
FPut INTEGER004, "" + U_Name() + " | " + "" + Upper(U_Addr(2)) + " | " + "" + Upper(U_Addr(3)) + " |
"
Next
FPut INTEGER004, "
"
FPut INTEGER004, "For more info on " + STRING006 + " Email: " + "" + ReadLine(STRING005, 2) + ""
FPut INTEGER004, "
Last Updated: " + STRING004 + STRING003
FPut INTEGER004, ""
FPut INTEGER004, "Written By: " + "JAY PAREKH, Chicago, IL"
FClose INTEGER004
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; þ Statements used :
;
; 2 Goto
; 10 Let
; 1 If
; 1 FCreate
; 1 FClose
; 12 FPut
; 1 GetAltUser
;
;
; þ Functions used :
;
; 1 /
; 39 +
; 1 <
; 1 <=
; 2 >=
; 1 !
; 2 &&
; 1 ||
; 2 Upper()
; 4 Chr()
; 1 Date()
; 2 Time()
; 1 U_Name()
; 1 Hour()
; 1 Min()
; 2 String()
; 3 PCBDat()
; 1 PPEPath()
; 6 ReadLine()
; 1 FileInf()
; 1 FNext()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Rd
;
; R - Read user þ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; þ Search for : GETALTUSER
;
; d - Access PCBOARD.DAT þ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; þ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------